home *** CD-ROM | disk | FTP | other *** search
/ Amiga Magazin: Amiga-CD 1996 September & October / Amiga-CD 1996 #9-10.iso / aminet / 9-96 / filofax_pro_v1.2 / steuerung < prev    next >
AmigaDOS Script File  |  1996-07-24  |  2KB  |  109 lines
  1. .key param
  2. .bra [
  3. .ket ]
  4. . Skript für Verwaltungsaufgaben
  5. . © MagnaMedia Verlag AG, AMIGA-Magazin
  6. failat >nil: 21
  7. if "[param]" EQ "info"
  8.     set vinfo 1
  9. endif
  10. if "[param]" EQ "copy"
  11.     set vcopy 1
  12. endif
  13. if "[param]" EQ "start"
  14.     set vassign 1
  15.     set vstart 1
  16.     set vunassign 1
  17. endif
  18. if "[param]" EQ "install"
  19.     set vinstall 1
  20. endif
  21. set binfo        1
  22. set bcopy        1
  23. set binstall     1
  24.  
  25.     echo >t:tmpsteuerung ":c/requestchoice20 >env:AmigaCD/req20erg *"Steuerung*" *"Bitte wählen Sie*"" NOLINE
  26.     set nummer 0
  27.     if $binfo EQ 1
  28.          echo >>t:tmpsteuerung " Info" NOLINE
  29.          set nummer `eval $nummer + 1`
  30.          set ninfo $nummer
  31.     endif
  32.     if $bcopy EQ 1
  33.          echo >>t:tmpsteuerung " Kopieren" NOLINE
  34.          set nummer `eval $nummer + 1`
  35.          set ncopy $nummer
  36.     endif
  37.     if $bstart EQ 1
  38.          echo >>t:tmpsteuerung " Start" NOLINE
  39.          set nummer `eval $nummer + 1`
  40.          set nstart $nummer
  41.     endif
  42.     if $binstall EQ 1
  43.          echo >>t:tmpsteuerung " Installieren" NOLINE
  44.          set nummer `eval $nummer + 1`
  45.          set ninstall $nummer
  46.     endif
  47.     if "[param]" EQ ""
  48.         echo >>t:tmpsteuerung " Ende" NOLINE
  49.         execute >nil: t:tmpsteuerung
  50.         delete >nil: t:tmpsteuerung
  51.         set reqerg[$$] `getenv env:AmigaCD/req20erg`
  52.         if $reqerg[$$] EQ 0
  53.             skip Ende
  54.         endif
  55.     endif
  56.     if $reqerg[$$] EQ $ninfo
  57.         set vinfo 1
  58.     endif
  59.     if $reqerg[$$] EQ $ncopy
  60.         set vcopy 1
  61.     endif
  62.     if $reqerg[$$] EQ $nstart
  63.         set vassign 1
  64.         set vstart 1
  65.         set vunassign 1
  66.     endif
  67.     if $reqerg[$$] EQ $ninstall
  68.         set vinstall 1
  69.     endif
  70. endif
  71.  
  72. if $vinfo EQ 1
  73. ;>>>>>>>> Hier Infotext eintragen
  74.     :c/Metatool :Aminet/9-96/FiloFax_Pro_v1.2/FiloFax.guide FT=GUIDE
  75. endif
  76. if $vstart EQ 1
  77. ;>>>>>>>> Hier steht das Startprogramm
  78.     :Aminet/9-96/FiloFax_Pro_v1.2/FiloFax-Normal/FiloFax
  79. endif
  80. if $vcopy EQ 1
  81.     execute :c/Verzeichniskopieren ":Aminet/9-96/FiloFax_Pro_v1.2/" "FiloFax_Pro_v1.2" 637952
  82. endif
  83. if $vinstall EQ 1
  84. ;>>>>>>>> Hier Install-Skript eintragen
  85.     cd :Aminet/9-96/FiloFax_Pro_v1.2
  86.     assign l: :l add
  87.     :c/WBstarter >nil: :Aminet/9-96/FiloFax_Pro_v1.2/HD_Install
  88.     assign l: :l remove
  89.     skip Ende
  90. endif
  91.  
  92. unset binfo
  93. unset vinfo
  94. unset ninfo
  95. unset bstart
  96. unset vstart
  97. unset nstart
  98. unset binstall
  99. unset vinstall
  100. unset ninstall
  101. unset bcopy
  102. unset vcopy
  103. unset ncopy
  104. if "[param]" EQ ""
  105.     execute ":Aminet/9-96/FiloFax_Pro_v1.2/Steuerung"
  106. endif
  107. LAB Ende
  108. unsetenv reqerg[$$]
  109.